﻿<%@language=vbscript codepage=65001%>
<%
Response.CodePage=65001
Response.Charset="UTF-8"
Session.CodePage = 65001
%>
<!--#include file="../ESYSManager/Config/Config.asp"-->
<!--#include file="../ESYSManager/Config/Conn.asp"-->
<!--#include file="../ESYSManager/Config/Function.asp"-->
<!--#include file="../ESYSManager/Config/ClassList_Fun.asp"-->
<!--#include file="../ESYSManager/Label/Label.asp"-->
<%
'**************************************************************
' Software Name: EasyesESYS
' Web: http://www.Easyes.com.cn
'**************************************************************
'系统全站样式参数
'**************************************************************
Function EsysLable(ID)
If isnumeric(ID)=True Then
Dim EsysRs,EsysSql
	Set EsysRs = Server.CreateObject("ADODB.Recordset")
	EsysSql = "Select StyleLable From [Easyes_Label] where ID="&ID
	EsysRs.Open EsysSql,Conn
If Not(EsysRs.eof or EsysRs.bof) then
 '函数标签处理页面 Lable/Lable_Function.asp
	Response.write ""&TemplateTags(EsysRs("StyleLable"))&""
End IF
	EsysRs.Close
	set EsysRs = nothing
End If
End Function
%>